home *** CD-ROM | disk | FTP | other *** search
/ Supercompiler 1997 / SUPERCOMPILER97.iso / Delphi 3.0 / DATA.Z / vcfi.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-30  |  71.9 KB  |  1,974 lines
  1. unit vcfi;
  2.  
  3. { VCI First Impression Library }
  4. { Version 1.0 }
  5.  
  6. { Conversion log:
  7. Error: 'Label' is a reserved word. Label changed to 'Label' is a reserved word_
  8. Error: 'Array' is a reserved word. Parameter _DVtChart in CopyDataFromArray.Array changed to 'Array' is a reserved word_
  9. Error: 'Array' is a reserved word. Parameter _DVtChart in CopyDataToArray.Array changed to 'Array' is a reserved word_
  10. Error: 'Set' is a reserved word. ICoor.Set changed to 'Set' is a reserved word_
  11. Error: 'Set' is a reserved word. ILCoor.Set changed to 'Set' is a reserved word_
  12. Error: 'Set' is a reserved word. ICoor3.Set changed to 'Set' is a reserved word_
  13. Error: 'Set' is a reserved word. IColor.Set changed to 'Set' is a reserved word_
  14. Error: 'Type' is a reserved word. IPicture.Type changed to 'Type' is a reserved word_
  15. Error: 'Set' is a reserved word. IVcView3d.Set changed to 'Set' is a reserved word_
  16. Error: 'Set' is a reserved word. IVcDoughnut.Set changed to 'Set' is a reserved word_
  17. Error: 'Set' is a reserved word. IVcPie.Set changed to 'Set' is a reserved word_
  18. Error: 'Set' is a reserved word. IVcWeighting.Set changed to 'Set' is a reserved word_
  19. Error: 'Type' is a reserved word. Parameter IVcStatLines in Style.Type changed to 'Type' is a reserved word_
  20. Error: 'Type' is a reserved word. IVcScale.Type changed to 'Type' is a reserved word_
  21. Error: 'Set' is a reserved word. IVcLightSource.Set changed to 'Set' is a reserved word_
  22.  }
  23.  
  24. interface
  25.  
  26. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  27.  
  28. const
  29.   LIBID_VCIFiLib: TGUID = '{5A721583-5AF0-11CE-8384-0020AF2337F2}';
  30.  
  31. const
  32.  
  33. { The list of VtFont styles }
  34.  
  35. { FontStyleConstants }
  36.  
  37.   VtFontStyleBold = 1;
  38.   VtFontStyleItalic = 2;
  39.   VtFontStyleOutline = 4;
  40.  
  41. { The list of VtFont effects }
  42.  
  43. { FontEffectsConstants }
  44.  
  45.   VtFontEffectStrikeThrough = 256;
  46.   VtFontEffectUnderline = 512;
  47.  
  48. { Frame Styles }
  49.  
  50. { FrameStyleConstants }
  51.  
  52.   VtFrameStyleNull = 0;
  53.   VtFrameStyleSingleLine = 1;
  54.   VtFrameStyleDoubleLine = 2;
  55.   VtFrameStyleThickInner = 3;
  56.   VtFrameStyleThickOuter = 4;
  57.  
  58. { Brush Styles }
  59.  
  60. { BrushStyleConstants }
  61.  
  62.   VtBrushStyleNull = 0;
  63.   VtBrushStyleSolid = 1;
  64.   VtBrushStylePattern = 2;
  65.   VtBrushStyleHatched = 3;
  66.  
  67. { The list of datapoint label component types }
  68.  
  69. { LabelComponentConstants }
  70.  
  71.   VtChLabelComponentValue = 1;
  72.   VtChLabelComponentPercent = 2;
  73.   VtChLabelComponentSeriesName = 4;
  74.   VtChLabelComponentPointName = 8;
  75.  
  76. { Brush Patterns }
  77.  
  78. { BrushPatternConstants }
  79.  
  80.   VtBrushPattern94Percent = 0;
  81.   VtBrushPattern88Percent = 1;
  82.   VtBrushPattern75Percent = 2;
  83.   VtBrushPattern50Percent = 3;
  84.   VtBrushPattern25Percent = 4;
  85.   VtBrushPatternBoldHorizontal = 5;
  86.   VtBrushPatternBoldVertical = 6;
  87.   VtBrushPatternBoldDownDiagonal = 7;
  88.   VtBrushPatternBoldUpDiagonal = 8;
  89.   VtBrushPatternChecks = 9;
  90.   VtBrushPatternWeave = 10;
  91.   VtBrushPatternHorizontal = 11;
  92.   VtBrushPatternVertical = 12;
  93.   VtBrushPatternDownDiagonal = 13;
  94.   VtBrushPatternUpDiagonal = 14;
  95.   VtBrushPatternGrid = 15;
  96.   VtBrushPatternTrellis = 16;
  97.   VtBrushPatternInvertedTrellis = 17;
  98.  
  99. { Brush Hatches }
  100.  
  101. { BrushHatchConstants }
  102.  
  103.   VtBrushHatchHorizontal = 0;
  104.   VtBrushHatchVertical = 1;
  105.   VtBrushHatchDownDiagonal = 2;
  106.   VtBrushHatchUpDiagonal = 3;
  107.   VtBrushHatchCross = 4;
  108.   VtBrushHatchDiagonalCross = 5;
  109.  
  110. { Shadow Styles }
  111.  
  112. { ShadowStyleConstants }
  113.  
  114.   VtShadowStyleNull = 0;
  115.   VtShadowStyleDrop = 1;
  116.  
  117. { Mouse Flag Constants }
  118.  
  119. { MouseFlagConstants }
  120.  
  121.   VtChMouseFlagShiftKeyDown = 4;
  122.   VtChMouseFlagControlKeyDown = 8;
  123.  
  124. { Pen Styles }
  125.  
  126. { PenStyleConstants }
  127.  
  128.   VtPenStyleNull = 0;
  129.   VtPenStyleSolid = 1;
  130.   VtPenStyleDashed = 2;
  131.   VtPenStyleDotted = 3;
  132.   VtPenStyleDashDot = 4;
  133.   VtPenStyleDashDotDot = 5;
  134.   VtPenStyleDitted = 6;
  135.   VtPenStyleDashDit = 7;
  136.   VtPenStyleDashDitDit = 8;
  137.  
  138. { Pen Join types }
  139.  
  140. { PenJoinConstants }
  141.  
  142.   VtPenJoinMiter = 0;
  143.   VtPenJoinRound = 1;
  144.   VtPenJoinBevel = 2;
  145.  
  146. { Pen Cap types }
  147.  
  148. { PenCapConstants }
  149.  
  150.   VtPenCapButt = 0;
  151.   VtPenCapRound = 1;
  152.   VtPenCapSquare = 2;
  153.  
  154. { Gradient Styles }
  155.  
  156. { GradientStyleConstants }
  157.  
  158.   VtGradientStyleHorizontal = 0;
  159.   VtGradientStyleVertical = 1;
  160.   VtGradientStyleRectangle = 2;
  161.   VtGradientStyleOval = 3;
  162.  
  163. { Picture Types }
  164.  
  165. { PictureTypeConstants }
  166.  
  167.   VtPictureTypeNull = 0;
  168.   VtPictureTypeBMP = 1;
  169.   VtPictureTypeWMF = 2;
  170.  
  171. { Picture Options (WMF only) }
  172.  
  173. { PictureOptionConstants }
  174.  
  175.   VtPictureOptionNoSizeHeader = 0;
  176.   VtPictureOptionTextAsCurves = 1;
  177.  
  178. { Picture Map Types }
  179.  
  180. { PictureMapTypeConstants }
  181.  
  182.   VtPictureMapTypeActual = 0;
  183.   VtPictureMapTypeFitted = 1;
  184.   VtPictureMapTypeStretched = 2;
  185.   VtPictureMapTypeTiled = 3;
  186.   VtPictureMapTypeCropFitted = 4;
  187.  
  188. { Fill Style Constants }
  189.  
  190. { FillStyleConstants }
  191.  
  192.   VtFillStyleNull = 0;
  193.   VtFillStyleBrush = 1;
  194.   VtFillStyleGradient = 2;
  195.  
  196. { Chart Element Location Type Constants }
  197.  
  198. { LocationTypeConstants }
  199.  
  200.   VtChLocationTypeTopLeft = 0;
  201.   VtChLocationTypeTop = 1;
  202.   VtChLocationTypeTopRight = 2;
  203.   VtChLocationTypeLeft = 3;
  204.   VtChLocationTypeRight = 4;
  205.   VtChLocationTypeBottomLeft = 5;
  206.   VtChLocationTypeBottom = 6;
  207.   VtChLocationTypeBottomRight = 7;
  208.   VtChLocationTypeCustom = 8;
  209.  
  210. { Axis Id Constants }
  211.  
  212. { AxisIdConstants }
  213.  
  214.   VtChAxisIdX = 0;
  215.   VtChAxisIdY = 1;
  216.   VtChAxisIdY2 = 2;
  217.   VtChAxisIdZ = 3;
  218.  
  219. { Axis Tick Style Constants }
  220.  
  221. { AxisTickStyleConstants }
  222.  
  223.   VtChAxisTickStyleNone = 0;
  224.   VtChAxisTickStyleCenter = 1;
  225.   VtChAxisTickStyleInside = 2;
  226.   VtChAxisTickStyleOutside = 3;
  227.  
  228. { Date Interval Constants }
  229.  
  230. { DateIntervalTypeConstants }
  231.  
  232.   VtChDateIntervalTypeNone = 0;
  233.   VtChDateIntervalTypeDaily = 1;
  234.   VtChDateIntervalTypeWeekly = 2;
  235.   VtChDateIntervalTypeSemimonthly = 3;
  236.   VtChDateIntervalTypeMonthly = 4;
  237.   VtChDateIntervalTypeYearly = 5;
  238.  
  239. { Scale Type Constants }
  240.  
  241. { ScaleTypeConstants }
  242.  
  243.   VtChScaleTypeLinear = 0;
  244.   VtChScaleTypeLogarithmic = 1;
  245.   VtChScaleTypePercent = 2;
  246.  
  247. { Percent Axis Basis Constants }
  248.  
  249. { PercentAxisBasisConstants }
  250.  
  251.   VtChPercentAxisBasisMaxChart = 0;
  252.   VtChPercentAxisBasisMaxRow = 1;
  253.   VtChPercentAxisBasisMaxColumn = 2;
  254.   VtChPercentAxisBasisSumChart = 3;
  255.   VtChPercentAxisBasisSumRow = 4;
  256.   VtChPercentAxisBasisSumColumn = 5;
  257.  
  258. { Pie Weight Basis Constants }
  259.  
  260. { PieWeightBasisConstants }
  261.  
  262.   VtChPieWeightBasisNone = 0;
  263.   VtChPieWeightBasisTotal = 1;
  264.   VtChPieWeightBasisSeries = 2;
  265.  
  266. { Pie Weight Style Constants }
  267.  
  268. { PieWeightStyleConstants }
  269.  
  270.   VtChPieWeightStyleArea = 0;
  271.   VtChPieWeightStyleDiameter = 1;
  272.  
  273. { Sort Type Constants }
  274.  
  275. { SortTypeConstants }
  276.  
  277.   VtSortTypeNone = 0;
  278.   VtSortTypeAscending = 1;
  279.   VtSortTypeDescending = 2;
  280.  
  281. { Angle Units Constants }
  282.  
  283. { AngleUnitsConstants }
  284.  
  285.   VtAngleUnitsDegrees = 0;
  286.   VtAngleUnitsRadians = 1;
  287.   VtAngleUnitsGrads = 2;
  288.  
  289. { Sub Plot Label Location Type Constants }
  290.  
  291. { SubPlotLabelLocationTypeConstants }
  292.  
  293.   VtChSubPlotLabelLocationTypeNone = 0;
  294.   VtChSubPlotLabelLocationTypeAbove = 1;
  295.   VtChSubPlotLabelLocationTypeBelow = 2;
  296.   VtChSubPlotLabelLocationTypeCenter = 3;
  297.  
  298. { The list of series/datapoint label line styles }
  299.  
  300. { LabelLineStyleConstants }
  301.  
  302.   VtChLabelLineStyleNone = 0;
  303.   VtChLabelLineStyleStraight = 1;
  304.   VtChLabelLineStyleBent = 2;
  305.  
  306. { The list of series/datapoint label locations }
  307.  
  308. { LabelLocationTypeConstants }
  309.  
  310.   VtChLabelLocationTypeNone = 0;
  311.   VtChLabelLocationTypeAbovePoint = 1;
  312.   VtChLabelLocationTypeBelowPoint = 2;
  313.   VtChLabelLocationTypeCenter = 3;
  314.   VtChLabelLocationTypeBase = 4;
  315.   VtChLabelLocationTypeInside = 5;
  316.   VtChLabelLocationTypeOutside = 6;
  317.   VtChLabelLocationTypeLeft = 7;
  318.   VtChLabelLocationTypeRight = 8;
  319.  
  320. { Contour VtColor Type Constants }
  321.  
  322. { ContourColorTypeConstants }
  323.  
  324.   VtChContourColorTypeAutomatic = 0;
  325.   VtChContourColorTypeGradient = 1;
  326.   VtChContourColorTypeManual = 2;
  327.  
  328. { Contour Display Type Constants }
  329.  
  330. { ContourDisplayTypeConstants }
  331.  
  332.   VtChContourDisplayTypeCBands = 0;
  333.   VtChContourDisplayTypeCLines = 1;
  334.  
  335. { Surface Base Type Constants }
  336.  
  337. { SurfaceBaseTypeConstants }
  338.  
  339.   VtChSurfaceBaseTypePedestal = 0;
  340.   VtChSurfaceBaseTypeStandard = 1;
  341.   VtChSurfaceBaseTypeStandardWithCBands = 2;
  342.   VtChSurfaceBaseTypeStandardWithCLines = 3;
  343.  
  344. { Surface Display Type Constants }
  345.  
  346. { SurfaceDisplayTypeConstants }
  347.  
  348.   VtChSurfaceDisplayTypeNone = 0;
  349.   VtChSurfaceDisplayTypeCBands = 1;
  350.   VtChSurfaceDisplayTypeCLines = 2;
  351.   VtChSurfaceDisplayTypeSolid = 3;
  352.   VtChSurfaceDisplayTypeSolidWithCLines = 4;
  353.  
  354. { Surface Projection Type Constants }
  355.  
  356. { SurfaceProjectionTypeConstants }
  357.  
  358.   VtChSurfaceProjectionTypeNone = 0;
  359.   VtChSurfaceProjectionTypeCBands = 1;
  360.   VtChSurfaceProjectionTypeCLines = 2;
  361.  
  362. { Surface Wireframe Type Constants }
  363.  
  364. { SurfaceWireframeTypeConstants }
  365.  
  366.   VtChSurfaceWireframeTypeNone = 0;
  367.   VtChSurfaceWireframeTypeMajor = 1;
  368.   VtChSurfaceWireframeTypeMajorAndMinor = 2;
  369.  
  370. { Marker Style Constants }
  371.  
  372. { MarkerStyleConstants }
  373.  
  374.   VtMarkerStyleDash = 0;
  375.   VtMarkerStylePlus = 1;
  376.   VtMarkerStyleX = 2;
  377.   VtMarkerStyleStar = 3;
  378.   VtMarkerStyleCircle = 4;
  379.   VtMarkerStyleSquare = 5;
  380.   VtMarkerStyleDiamond = 6;
  381.   VtMarkerStyleUpTriangle = 7;
  382.   VtMarkerStyleDownTriangle = 8;
  383.   VtMarkerStyleFilledCircle = 9;
  384.   VtMarkerStyleFilledSquare = 10;
  385.   VtMarkerStyleFilledDiamond = 11;
  386.   VtMarkerStyleFilledUpTriangle = 12;
  387.   VtMarkerStyleFilledDownTriangle = 13;
  388.   VtMarkerStyle3dBall = 14;
  389.  
  390. { Projection Type Constants }
  391.  
  392. { ProjectionTypeConstants }
  393.  
  394.   VtProjectionTypePerspective = 0;
  395.   VtProjectionTypeOblique = 1;
  396.   VtProjectionTypeOrthogonal = 2;
  397.  
  398. { Smoothing Type Constants }
  399.  
  400. { SmoothingTypeConstants }
  401.  
  402.   VtSmoothingTypeNone = 0;
  403.   VtSmoothingTypeQuadraticBSpline = 1;
  404.   VtSmoothingTypeCubicBSpline = 2;
  405.  
  406. { Horizontal Alignment Constants }
  407.  
  408. { HorizontalAlignmentConstants }
  409.  
  410.   VtHorizontalAlignmentLeft = 0;
  411.   VtHorizontalAlignmentRight = 1;
  412.   VtHorizontalAlignmentCenter = 2;
  413.  
  414. { Vertical Alignment Constants }
  415.  
  416. { VerticalAlignmentConstants }
  417.  
  418.   VtVerticalAlignmentTop = 0;
  419.   VtVerticalAlignmentBottom = 1;
  420.   VtVerticalAlignmentCenter = 2;
  421.  
  422. { Orientation Constants }
  423.  
  424. { OrientationConstants }
  425.  
  426.   VtOrientationHorizontal = 0;
  427.   VtOrientationVertical = 1;
  428.   VtOrientationUp = 2;
  429.   VtOrientationDown = 3;
  430.  
  431. { Device Context Type Constants }
  432.  
  433. { DcTypeConstants }
  434.  
  435.   VtDcTypeNull = 0;
  436.   VtDcTypeDisplay = 1;
  437.   VtDcTypePrinter = 2;
  438.   VtDcTypeMetafile = 3;
  439.  
  440. { Print Scale Type Constants }
  441.  
  442. { PrintScaleTypeConstants }
  443.  
  444.   VtPrintScaleTypeActual = 0;
  445.   VtPrintScaleTypeFitted = 1;
  446.   VtPrintScaleTypeStretched = 2;
  447.  
  448. { Stat Type Constants }
  449.  
  450. { StatTypeConstants }
  451.  
  452.   VtChStatsMinimum = 1;
  453.   VtChStatsMaximum = 2;
  454.   VtChStatsMean = 4;
  455.   VtChStatsStddev = 8;
  456.   VtChStatsRegression = 16;
  457.  
  458. { Print Orientation Type Constants }
  459.  
  460. { PrintOrientationTypeConstants }
  461.  
  462.   VtPrintOrientationPortrait = 0;
  463.   VtPrintOrientationLandscape = 1;
  464.  
  465. { 2D Text output Type Constants }
  466.  
  467. { TextOutputTypeConstants }
  468.  
  469.   VtTextOutputTypeHardware = 0;
  470.   VtTextOutputTypePolygon = 1;
  471.  
  472. { Text Length Type Constants }
  473.  
  474. { TextLengthTypeConstants }
  475.  
  476.   VtTextLengthTypeVirtual = 0;
  477.   VtTextLengthTypeDevice = 1;
  478.  
  479. { Chart Part Type Constants }
  480.  
  481. { PartTypeConstants }
  482.  
  483.   VtChPartTypeChart = 0;
  484.   VtChPartTypeTitle = 1;
  485.   VtChPartTypeFootnote = 2;
  486.   VtChPartTypeLegend = 3;
  487.   VtChPartTypePlot = 4;
  488.   VtChPartTypeSeries = 5;
  489.   VtChPartTypeSeriesLabel = 6;
  490.   VtChPartTypePoint = 7;
  491.   VtChPartTypePointLabel = 8;
  492.   VtChPartTypeAxis = 9;
  493.   VtChPartTypeAxisLabel = 10;
  494.   VtChPartTypeAxisTitle = 11;
  495.  
  496. { The list of Draw modes }
  497.  
  498. { DrawModeConstants }
  499.  
  500.   VtChDrawModeDraw = 0;
  501.   VtChDrawModeBlit = 1;
  502.  
  503. { The list of Formula One spreadsheet link modes }
  504.  
  505. { SsLinkModeConstants }
  506.  
  507.   VtChSsLinkModeOff = 0;
  508.   VtChSsLinkModeOn = 1;
  509.   VtChSsLinkModeAutoParse = 2;
  510.  
  511. { The list of Series types }
  512.  
  513. { SeriesTypeConstants }
  514.  
  515.   VtChSeriesTypeDefault = -1;
  516.   VtChSeriesType3dBar = 0;
  517.   VtChSeriesType2dBar = 1;
  518.   VtChSeriesType3dHorizontalBar = 2;
  519.   VtChSeriesType2dHorizontalBar = 3;
  520.   VtChSeriesType3dClusteredBar = 4;
  521.   VtChSeriesType3dLine = 5;
  522.   VtChSeriesType2dLine = 6;
  523.   VtChSeriesType3dArea = 7;
  524.   VtChSeriesType2dArea = 8;
  525.   VtChSeriesType3dStep = 9;
  526.   VtChSeriesType2dStep = 10;
  527.   VtChSeriesType2dXY = 11;
  528.   VtChSeriesType2dPolar = 12;
  529.   VtChSeriesType2dRadarLine = 13;
  530.   VtChSeriesType2dRadarArea = 14;
  531.   VtChSeriesType2dBubble = 15;
  532.   VtChSeriesType2dHiLo = 16;
  533.   VtChSeriesType2dHLC = 17;
  534.   VtChSeriesType2dHLCRight = 18;
  535.   VtChSeriesType2dOHLC = 19;
  536.   VtChSeriesType2dOHLCBar = 20;
  537.   VtChSeriesType2dGantt = 21;
  538.   VtChSeriesType3dGantt = 22;
  539.   VtChSeriesType3dPie = 23;
  540.   VtChSeriesType2dPie = 24;
  541.   VtChSeriesType3dDoughnut = 25;
  542.   VtChSeriesType2dDates = 26;
  543.   VtChSeriesType3dBarHiLo = 27;
  544.   VtChSeriesType2dBarHiLo = 28;
  545.   VtChSeriesType3dHorizontalBarHiLo = 29;
  546.   VtChSeriesType2dHorizontalBarHiLo = 30;
  547.   VtChSeriesType3dClusteredBarHiLo = 31;
  548.   VtChSeriesType3dSurface = 32;
  549.   VtChSeriesType2dContour = 33;
  550.   VtChSeriesType3dXYZ = 34;
  551.  
  552. { The list of Chart types }
  553.  
  554. { ChartTypeConstants }
  555.  
  556.   VtChChartType3dBar = 0;
  557.   VtChChartType2dBar = 1;
  558.   VtChChartType3dLine = 2;
  559.   VtChChartType2dLine = 3;
  560.   VtChChartType3dArea = 4;
  561.   VtChChartType2dArea = 5;
  562.   VtChChartType3dStep = 6;
  563.   VtChChartType2dStep = 7;
  564.   VtChChartType3dCombination = 8;
  565.   VtChChartType2dCombination = 9;
  566.   VtChChartType3dHorizontalBar = 10;
  567.   VtChChartType2dHorizontalBar = 11;
  568.   VtChChartType3dClusteredBar = 12;
  569.   VtChChartType3dPie = 13;
  570.   VtChChartType2dPie = 14;
  571.   VtChChartType3dDoughnut = 15;
  572.   VtChChartType2dXY = 16;
  573.   VtChChartType2dPolar = 17;
  574.   VtChChartType2dRadar = 18;
  575.   VtChChartType2dBubble = 19;
  576.   VtChChartType2dHiLo = 20;
  577.   VtChChartType2dGantt = 21;
  578.   VtChChartType3dGantt = 22;
  579.   VtChChartType3dSurface = 23;
  580.   VtChChartType2dContour = 24;
  581.   VtChChartType3dScatter = 25;
  582.   VtChChartType3dXYZ = 26;
  583.  
  584. const
  585.  
  586. { Component class GUIDs }
  587.   Class_VtChart: TGUID = '{5A721580-5AF0-11CE-8384-0020AF2337F2}';
  588.   Class_Coor: TGUID = '{EBF97E21-731F-11CE-840F-00AA0042CB33}';
  589.   Class_LCoor: TGUID = '{EBF97E23-731F-11CE-840F-00AA0042CB33}';
  590.   Class_Coor3: TGUID = '{177BF2A1-7350-11CE-840F-00AA0042CB33}';
  591.   Class_LRect: TGUID = '{177BF2A3-7350-11CE-840F-00AA0042CB33}';
  592.   Class_Rect: TGUID = '{FE5517C1-73FE-11CE-840F-00AA0042CB33}';
  593.   Class_VtColor: TGUID = '{9BA79C61-7403-11CE-840F-00AA0042CB33}';
  594.   Class_Brush: TGUID = '{AFE57021-7409-11CE-840F-00AA0042CB33}';
  595.   Class_Shadow: TGUID = '{AFE57023-7409-11CE-840F-00AA0042CB33}';
  596.   Class_TextLayout: TGUID = '{E26C7701-756C-11CE-840F-00AA0042CB33}';
  597.   Class_Title: TGUID = '{C82141A1-7571-11CE-840F-00AA0042CB33}';
  598.   Class_Location: TGUID = '{EDDF9243-764B-11CE-840F-00AA0042CB33}';
  599.   Class_VtFont: TGUID = '{2E6A37A1-77FC-11CE-840F-00AA0042CB33}';
  600.   Class_Backdrop: TGUID = '{2E6A37A3-77FC-11CE-840F-00AA0042CB33}';
  601.   Class_Frame: TGUID = '{2E6A37A5-77FC-11CE-840F-00AA0042CB33}';
  602.   Class_Gradient: TGUID = '{2E6A37A7-77FC-11CE-840F-00AA0042CB33}';
  603.   Class_VtPicture: TGUID = '{FD30FB01-789C-11CE-840F-00AA0042CB33}';
  604.   Class_Fill: TGUID = '{FD30FB03-789C-11CE-840F-00AA0042CB33}';
  605.   Class_Pen: TGUID = '{279B5A41-8098-11CE-BECC-00AA0042CB33}';
  606.   Class_Marker: TGUID = '{3080E743-813F-11CE-BECC-00AA0042CB33}';
  607.   Class_Footnote: TGUID = '{4F053F01-8396-11CE-BECC-00AA0042CB33}';
  608.   Class_Legend: TGUID = '{95C52B61-83B1-11CE-BECC-00AA0042CB33}';
  609.   Class_PrintInformation: TGUID = '{CFA0AC01-8B6E-11CE-840F-00AA0042CB33}';
  610.   Class_DataGrid: TGUID = '{6CB603A1-8F70-11CE-840F-00AA0042CB33}';
  611.   Class_Plot: TGUID = '{F77BA681-9037-11CE-86B3-444553540000}';
  612.   Class_View3d: TGUID = '{21645F63-90F0-11CE-86B3-444553540000}';
  613.   Class_PlotBase: TGUID = '{508D02E1-90FC-11CE-86B3-444553540000}';
  614.   Class_Doughnut: TGUID = '{508D02E3-90FC-11CE-86B3-444553540000}';
  615.   Class_Pie: TGUID = '{508D02E5-90FC-11CE-86B3-444553540000}';
  616.   Class_Weighting: TGUID = '{508D02E7-90FC-11CE-86B3-444553540000}';
  617.   Class_Wall: TGUID = '{508D02E9-90FC-11CE-86B3-444553540000}';
  618.   Class_Series: TGUID = '{0AA0FE21-912A-11CE-86B3-444553540000}';
  619.   Class_Bar: TGUID = '{264931C1-91F1-11CE-840F-00AA0042CB33}';
  620.   Class_HiLo: TGUID = '{51DCC621-95B7-11CE-86B3-444553540000}';
  621.   Class_Position: TGUID = '{51DCC623-95B7-11CE-86B3-444553540000}';
  622.   Class_SeriesMarker: TGUID = '{51DCC625-95B7-11CE-86B3-444553540000}';
  623.   Class_SeriesLabel: TGUID = '{51DCC627-95B7-11CE-86B3-444553540000}';
  624.   Class_StatLine: TGUID = '{2F6DD6A1-95E5-11CE-86B3-444553540000}';
  625.   Class_DataPointLabel: TGUID = '{2F6DD6A3-95E5-11CE-86B3-444553540000}';
  626.   Class_DataPoint: TGUID = '{2F6DD6A5-95E5-11CE-86B3-444553540000}';
  627.   Class_Axis: TGUID = '{027D7901-A023-11CE-840F-00AA0042CB33}';
  628.   Class_CategoryScale: TGUID = '{62375361-A17D-11CE-840F-00AA0042CB33}';
  629.   Class_DateScale: TGUID = '{62375363-A17D-11CE-840F-00AA0042CB33}';
  630.   Class_AxisGrid: TGUID = '{62375365-A17D-11CE-840F-00AA0042CB33}';
  631.   Class_Intersection: TGUID = '{62375367-A17D-11CE-840F-00AA0042CB33}';
  632.   Class_Tick: TGUID = '{62375369-A17D-11CE-840F-00AA0042CB33}';
  633.   Class_AxisScale: TGUID = '{6237536B-A17D-11CE-840F-00AA0042CB33}';
  634.   Class_ValueScale: TGUID = '{6237536D-A17D-11CE-840F-00AA0042CB33}';
  635.   Class_AxisTitle: TGUID = '{6237536F-A17D-11CE-840F-00AA0042CB33}';
  636.   Class_Label_: TGUID = '{62375371-A17D-11CE-840F-00AA0042CB33}';
  637.   Class_Light: TGUID = '{B54A6421-A25E-11CE-840F-00AA0042CB33}';
  638.   Class_Elevation: TGUID = '{A71FB701-A732-11CE-840F-00AA0042CB33}';
  639.   Class_Attribute: TGUID = '{A71FB703-A732-11CE-840F-00AA0042CB33}';
  640.   Class_Surface: TGUID = '{A71FB705-A732-11CE-840F-00AA0042CB33}';
  641.   Class_Contour: TGUID = '{A71FB707-A732-11CE-840F-00AA0042CB33}';
  642.   Class_LightSource: TGUID = '{CD9EFA61-AA40-11CE-840F-00AA0042CB33}';
  643.   Class_SeriesCollection: TGUID = '{C14E8B61-AE2B-11CE-840F-00AA0042CB33}';
  644.   Class_DataPoints: TGUID = '{C20E5261-B06F-11CE-840F-00AA0042CB33}';
  645.   Class_Labels: TGUID = '{62B9A401-B93D-11CE-8410-00AA0042CB33}';
  646.   Class_XYZ: TGUID = '{7D001801-BC65-11CE-8410-00AA0042CB33}';
  647.   Class_LightSources: TGUID = '{6FE35CC1-CE50-11CE-8410-00AA0042CB33}';
  648.   Class_Attributes: TGUID = '{5A693221-CFEF-11CE-8410-00AA0042CB33}';
  649.   Class_ContourGradient: TGUID = '{69032721-D303-11CE-8410-00AA0042CB33}';
  650.  
  651. type
  652.  
  653. { Forward declarations }
  654.   _DVtChart = dispinterface;
  655.   _DVtChartEvents = dispinterface;
  656.   ICoor = dispinterface;
  657.   ILCoor = dispinterface;
  658.   ICoor3 = dispinterface;
  659.   ILRect = dispinterface;
  660.   IRect = dispinterface;
  661.   IColor = dispinterface;
  662.   IBrush = dispinterface;
  663.   IShadow = dispinterface;
  664.   ITextLayout = dispinterface;
  665.   IVcTitle = dispinterface;
  666.   ILocation = dispinterface;
  667.   IFont = dispinterface;
  668.   IBackdrop = dispinterface;
  669.   IFrame = dispinterface;
  670.   IGradient = dispinterface;
  671.   IPicture = dispinterface;
  672.   IFill = dispinterface;
  673.   IVcPen = dispinterface;
  674.   IVcMarker = dispinterface;
  675.   IVcFootnote = dispinterface;
  676.   IVcLegend = dispinterface;
  677.   IVcPrintInformation = dispinterface;
  678.   IVcDataGrid = dispinterface;
  679.   IVcPlot = dispinterface;
  680.   IVcView3d = dispinterface;
  681.   IVcPlotBase = dispinterface;
  682.   IVcDoughnut = dispinterface;
  683.   IVcPie = dispinterface;
  684.   IVcWeighting = dispinterface;
  685.   IVcWall = dispinterface;
  686.   IVcSeries = dispinterface;
  687.   IVcBar = dispinterface;
  688.   IVcHiLo = dispinterface;
  689.   IVcPosition = dispinterface;
  690.   IVcSeriesMarker = dispinterface;
  691.   IVcSeriesLabel = dispinterface;
  692.   IVcStatLines = dispinterface;
  693.   IVcDataPointLabel = dispinterface;
  694.   IVcDataPoint = dispinterface;
  695.   IVcAxis = dispinterface;
  696.   IVcCategoryScale = dispinterface;
  697.   IVcDateScale = dispinterface;
  698.   IVcAxisGrid = dispinterface;
  699.   IVcIntersection = dispinterface;
  700.   IVcTick = dispinterface;
  701.   IVcScale = dispinterface;
  702.   IVcValueScale = dispinterface;
  703.   IVcAxisTitle = dispinterface;
  704.   IVcLabel = dispinterface;
  705.   IVcLight = dispinterface;
  706.   IVcElevation = dispinterface;
  707.   IVcAttribute = dispinterface;
  708.   IVcSurface = dispinterface;
  709.   IVcContour = dispinterface;
  710.   IVcLightSource = dispinterface;
  711.   IVcSeriesCollection = dispinterface;
  712.   IVcDataPoints = dispinterface;
  713.   IVcLabels = dispinterface;
  714.   IVcXYZ = dispinterface;
  715.   IVcLightSources = dispinterface;
  716.   IVcAttributes = dispinterface;
  717.   IVcContourGradient = dispinterface;
  718.  
  719.   FontStyleConstants = TOleEnum;
  720.   FontEffectsConstants = TOleEnum;
  721.   FrameStyleConstants = TOleEnum;
  722.   BrushStyleConstants = TOleEnum;
  723.   LabelComponentConstants = TOleEnum;
  724.   BrushPatternConstants = TOleEnum;
  725.   BrushHatchConstants = TOleEnum;
  726.   ShadowStyleConstants = TOleEnum;
  727.   MouseFlagConstants = TOleEnum;
  728.   PenStyleConstants = TOleEnum;
  729.   PenJoinConstants = TOleEnum;
  730.   PenCapConstants = TOleEnum;
  731.   GradientStyleConstants = TOleEnum;
  732.   PictureTypeConstants = TOleEnum;
  733.   PictureOptionConstants = TOleEnum;
  734.   PictureMapTypeConstants = TOleEnum;
  735.   FillStyleConstants = TOleEnum;
  736.   LocationTypeConstants = TOleEnum;
  737.   AxisIdConstants = TOleEnum;
  738.   AxisTickStyleConstants = TOleEnum;
  739.   DateIntervalTypeConstants = TOleEnum;
  740.   ScaleTypeConstants = TOleEnum;
  741.   PercentAxisBasisConstants = TOleEnum;
  742.   PieWeightBasisConstants = TOleEnum;
  743.   PieWeightStyleConstants = TOleEnum;
  744.   SortTypeConstants = TOleEnum;
  745.   AngleUnitsConstants = TOleEnum;
  746.   SubPlotLabelLocationTypeConstants = TOleEnum;
  747.   LabelLineStyleConstants = TOleEnum;
  748.   LabelLocationTypeConstants = TOleEnum;
  749.   ContourColorTypeConstants = TOleEnum;
  750.   ContourDisplayTypeConstants = TOleEnum;
  751.   SurfaceBaseTypeConstants = TOleEnum;
  752.   SurfaceDisplayTypeConstants = TOleEnum;
  753.   SurfaceProjectionTypeConstants = TOleEnum;
  754.   SurfaceWireframeTypeConstants = TOleEnum;
  755.   MarkerStyleConstants = TOleEnum;
  756.   ProjectionTypeConstants = TOleEnum;
  757.   SmoothingTypeConstants = TOleEnum;
  758.   HorizontalAlignmentConstants = TOleEnum;
  759.   VerticalAlignmentConstants = TOleEnum;
  760.   OrientationConstants = TOleEnum;
  761.   DcTypeConstants = TOleEnum;
  762.   PrintScaleTypeConstants = TOleEnum;
  763.   StatTypeConstants = TOleEnum;
  764.   PrintOrientationTypeConstants = TOleEnum;
  765.   TextOutputTypeConstants = TOleEnum;
  766.   TextLengthTypeConstants = TOleEnum;
  767.   PartTypeConstants = TOleEnum;
  768.   DrawModeConstants = TOleEnum;
  769.   SsLinkModeConstants = TOleEnum;
  770.   SeriesTypeConstants = TOleEnum;
  771.   ChartTypeConstants = TOleEnum;
  772.  
  773. { Interface for VtChart Control }
  774.  
  775.   _DVtChart = dispinterface
  776.     ['{5A721581-5AF0-11CE-8384-0020AF2337F2}']
  777.     property AutoIncrement: WordBool dispid 1;
  778.     property RandomFill: WordBool dispid 2;
  779.     property ChartType: Smallint dispid 3;
  780.     property Column: Smallint dispid 4;
  781.     property ColumnCount: Smallint dispid 5;
  782.     property ColumnLabel: WideString dispid 6;
  783.     property ColumnLabelCount: Smallint dispid 7;
  784.     property ColumnLabelIndex: Smallint dispid 8;
  785.     property Data: WideString dispid 9;
  786.     property FootnoteText: WideString dispid 10;
  787.     property Repaint: WordBool dispid 11;
  788.     property Row: Smallint dispid 12;
  789.     property RowCount: Smallint dispid 13;
  790.     property RowLabel: WideString dispid 14;
  791.     property RowLabelCount: Smallint dispid 15;
  792.     property RowLabelIndex: Smallint dispid 16;
  793.     property SeriesColumn: Smallint dispid 17;
  794.     property SeriesType: Smallint dispid 18;
  795.     property ShowLegend: WordBool dispid 19;
  796.     property SsLinkMode: Smallint dispid 20;
  797.     property SsLinkRange: WideString dispid 21;
  798.     property SsLinkSheet: WideString dispid 22;
  799.     property DrawMode: Smallint dispid 23;
  800.     property BorderStyle: Smallint dispid -504;
  801.     property Enabled: WordBool dispid -514;
  802.     property hWnd: Smallint dispid -515;
  803.     property Handle: Integer readonly dispid 24;
  804.     property Picture: IPictureDisp readonly dispid 25;
  805.     property Title: IDispatch dispid 26;
  806.     property Footnote: IDispatch dispid 27;
  807.     property TitleText: WideString dispid 28;
  808.     property Stacking: WordBool dispid 29;
  809.     property TextLengthType: Smallint dispid 30;
  810.     property AllowUserChanges: WordBool dispid 31;
  811.     property AllowSelections: WordBool dispid 32;
  812.     property AllowSeriesSelection: WordBool dispid 33;
  813.     property AllowDynamicRotation: WordBool dispid 34;
  814.     property ActiveSeriesCount: Smallint dispid 35;
  815.     property Backdrop: IDispatch dispid 36;
  816.     property PrintInformation: IDispatch dispid 37;
  817.     property Legend: IDispatch dispid 38;
  818.     property DataGrid: IDispatch dispid 39;
  819.     property Plot: IDispatch dispid 40;
  820.     property TwipsWidth: Integer dispid 41;
  821.     property TwipsHeight: Integer dispid 42;
  822.     property AllowDithering: WordBool dispid 43;
  823.     property ErrorOffset: Smallint dispid 44;
  824.     property DoSetCursor: WordBool dispid 45;
  825.     property FileName: WideString dispid 46;
  826.     property Chart3d: WordBool dispid 47;
  827.     property SsLinkBook: WideString dispid 48;
  828.     procedure EditPaste; dispid 49;
  829.     procedure EditCopy; dispid 50;
  830.     procedure ActivateSelectionDialog; dispid 51;
  831.     procedure Layout; dispid 52;
  832.     procedure ToDefaults; dispid 53;
  833.     procedure PrintSetupDialog; dispid 54;
  834.     procedure PrintChart; dispid 55;
  835.     procedure SelectPart(part, index1, index2, index3, index4: Smallint); dispid 56;
  836.     procedure GetSelectedPart(var  {IDL_None} part,  {IDL_None} index1,  {IDL_None} index2,  {IDL_None} index3,  {IDL_None} index4: Smallint); dispid 57;
  837.     procedure GetDLLVersion(var  {IDL_None} major,  {IDL_None} minor: Smallint); dispid 58;
  838.     procedure TwipsToChartPart(xVal, yVal: Integer; var  {IDL_None} part,  {IDL_None} index1,  {IDL_None} index2,  {IDL_None} index3,  {IDL_None} index4: Smallint); dispid 59;
  839.     procedure ReadFromFile(const FileName: WideString); dispid 60;
  840.     procedure WritePictureToFile(const FileName: WideString; pictureType, options: Smallint); dispid 61;
  841.     procedure WriteToFile(const FileName: WideString); dispid 62;
  842.     procedure ActivateFormatMenu(X, Y: Integer); dispid 63;
  843.     procedure GetMetafile(options: Smallint; var  {IDL_None} Handle: OLE_HANDLE; var  {IDL_None} Width,  {IDL_None} Height: Integer); dispid 64;
  844.     procedure CopyDataFromArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant); dispid 65;
  845.     procedure CopyDataToArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant); dispid 66;
  846.     procedure Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top, Left, Bottom, Right: Integer; Layout, Stretch: WordBool); dispid 67;
  847.     property GetBitmap[options: OleVariant]: OLE_HANDLE readonly dispid 70;
  848.     procedure UseWizard; dispid 68;
  849.     procedure EditChartData; dispid 69;
  850.     procedure Refresh; dispid -550;
  851.     procedure AboutBox; dispid -552;
  852.   end;
  853.  
  854. { Event interface for Vtchart Control }
  855.  
  856.   _DVtChartEvents = dispinterface
  857.     ['{5A721582-5AF0-11CE-8384-0020AF2337F2}']
  858.     procedure ChartSelected(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 1;
  859.     procedure TitleSelected(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 2;
  860.     procedure FootnoteSelected(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 3;
  861.     procedure LegendSelected(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 4;
  862.     procedure PlotSelected(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 5;
  863.     procedure AxisSelected(var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 6;
  864.     procedure AxisLabelSelected(var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} labelSetIndex,  {IDL_None} LabelIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 7;
  865.     procedure AxisTitleSelected(var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 8;
  866.     procedure PointSelected(var  {IDL_None} Series,  {IDL_None} DataPoint,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 9;
  867.     procedure PointLabelSelected(var  {IDL_None} Series,  {IDL_None} DataPoint,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 10;
  868.     procedure SeriesSelected(var  {IDL_None} Series,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 11;
  869.     procedure SeriesLabelSelected(var  {IDL_None} Series,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 12;
  870.     procedure ChartActivated(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 13;
  871.     procedure TitleActivated(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 14;
  872.     procedure FootnoteActivated(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 15;
  873.     procedure LegendActivated(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 16;
  874.     procedure PlotActivated(var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 17;
  875.     procedure AxisActivated(var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 18;
  876.     procedure AxisLabelActivated(var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} labelSetIndex,  {IDL_None} LabelIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 19;
  877.     procedure AxisTitleActivated(var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 20;
  878.     procedure PointActivated(var  {IDL_None} Series,  {IDL_None} DataPoint,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 21;
  879.     procedure PointLabelActivated(var  {IDL_None} Series,  {IDL_None} DataPoint,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 22;
  880.     procedure SeriesActivated(var  {IDL_None} Series,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 23;
  881.     procedure SeriesLabelActivated(var  {IDL_None} Series,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint); dispid 24;
  882.     procedure Click; dispid -600;
  883.     procedure DblClick; dispid -601;
  884.     procedure KeyDown(var  {IDL_None} KeyCode: Smallint; Shift: Smallint); dispid -602;
  885.     procedure KeyPress(var  {IDL_None} KeyAscii: Smallint); dispid -603;
  886.     procedure KeyUp(var  {IDL_None} KeyCode: Smallint; Shift: Smallint); dispid -604;
  887.     procedure MouseDown(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -605;
  888.     procedure MouseMove(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -606;
  889.     procedure MouseUp(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -607;
  890.     procedure ApplyChanges; dispid 25;
  891.   end;
  892.  
  893. { Coor object }
  894.  
  895.   ICoor = dispinterface
  896.     ['{EBF97E20-731F-11CE-840F-00AA0042CB33}']
  897.     property X: Single dispid 1;
  898.     property Y: Single dispid 2;
  899.     procedure Set_(X, Y: Single); dispid 3;
  900.   end;
  901.  
  902. { LCoor object }
  903.  
  904.   ILCoor = dispinterface
  905.     ['{EBF97E22-731F-11CE-840F-00AA0042CB33}']
  906.     property X: Integer dispid 1;
  907.     property Y: Integer dispid 2;
  908.     procedure Set_(X, Y: Integer); dispid 3;
  909.   end;
  910.  
  911. { Coor3 object }
  912.  
  913.   ICoor3 = dispinterface
  914.     ['{177BF2A0-7350-11CE-840F-00AA0042CB33}']
  915.     property X: Single dispid 1;
  916.     property Y: Single dispid 2;
  917.     property Z: Single dispid 3;
  918.     procedure Set_(X, Y, Z: Single); dispid 4;
  919.   end;
  920.  
  921. { LRect object }
  922.  
  923.   ILRect = dispinterface
  924.     ['{177BF2A2-7350-11CE-840F-00AA0042CB33}']
  925.     property Min: IDispatch dispid 1;
  926.     property Max: IDispatch dispid 2;
  927.   end;
  928.  
  929. { Rect object }
  930.  
  931.   IRect = dispinterface
  932.     ['{FE5517C0-73FE-11CE-840F-00AA0042CB33}']
  933.     property Min: IDispatch dispid 1;
  934.     property Max: IDispatch dispid 2;
  935.   end;
  936.  
  937. { VtColor object }
  938.  
  939.   IColor = dispinterface
  940.     ['{9BA79C60-7403-11CE-840F-00AA0042CB33}']
  941.     property Red: Smallint dispid 1;
  942.     property Green: Smallint dispid 2;
  943.     property Blue: Smallint dispid 3;
  944.     property Automatic: WordBool dispid 4;
  945.     procedure Set_(Red, Green, Blue: Smallint); dispid 5;
  946.   end;
  947.  
  948. { Brush object }
  949.  
  950.   IBrush = dispinterface
  951.     ['{AFE57020-7409-11CE-840F-00AA0042CB33}']
  952.     property Style: Smallint dispid 1;
  953.     property FillColor: IDispatch dispid 2;
  954.     property PatternColor: IDispatch dispid 3;
  955.     property Index: Smallint dispid 4;
  956.   end;
  957.  
  958. { Shadow object }
  959.  
  960.   IShadow = dispinterface
  961.     ['{AFE57022-7409-11CE-840F-00AA0042CB33}']
  962.     property Style: Smallint dispid 1;
  963.     property Brush: IDispatch dispid 2;
  964.     property Offset: IDispatch dispid 3;
  965.   end;
  966.  
  967. { TextLayout object }
  968.  
  969.   ITextLayout = dispinterface
  970.     ['{E26C7700-756C-11CE-840F-00AA0042CB33}']
  971.     property HorzAlignment: Smallint dispid 1;
  972.     property VertAlignment: Smallint dispid 2;
  973.     property Orientation: Smallint dispid 3;
  974.     property WordWrap: WordBool dispid 4;
  975.   end;
  976.  
  977. { Title object }
  978.  
  979.   IVcTitle = dispinterface
  980.     ['{C82141A0-7571-11CE-840F-00AA0042CB33}']
  981.     property TextLayout: IDispatch dispid 1;
  982.     property Text: WideString dispid 2;
  983.     property _Text: WideString dispid 0;
  984.     property Location: IDispatch dispid 3;
  985.     property Backdrop: IDispatch dispid 4;
  986.     property VtFont: IDispatch dispid 5;
  987.     property TextLength: Smallint dispid 6;
  988.     procedure Select; dispid 7;
  989.   end;
  990.  
  991. { Location object }
  992.  
  993.   ILocation = dispinterface
  994.     ['{EDDF9242-764B-11CE-840F-00AA0042CB33}']
  995.     property Rect: IDispatch dispid 1;
  996.     property Visible: WordBool dispid 2;
  997.     property LocationType: Smallint dispid 3;
  998.   end;
  999.  
  1000. { VtFont object }
  1001.  
  1002.   IFont = dispinterface
  1003.     ['{2E6A37A0-77FC-11CE-840F-00AA0042CB33}']
  1004.     property Name: WideString dispid 1;
  1005.     property Size: Single dispid 2;
  1006.     property Style: Smallint dispid 3;
  1007.     property Effect: Smallint dispid 4;
  1008.     property VtColor: IDispatch dispid 5;
  1009.   end;
  1010.  
  1011. { Backdrop object }
  1012.  
  1013.   IBackdrop = dispinterface
  1014.     ['{2E6A37A2-77FC-11CE-840F-00AA0042CB33}']
  1015.     property Shadow: IDispatch dispid 1;
  1016.     property Frame: IDispatch dispid 2;
  1017.     property Fill: IDispatch dispid 3;
  1018.   end;
  1019.  
  1020. { Frame object }
  1021.  
  1022.   IFrame = dispinterface
  1023.     ['{2E6A37A4-77FC-11CE-840F-00AA0042CB33}']
  1024.     property Style: Smallint dispid 1;
  1025.     property FrameColor: IDispatch dispid 2;
  1026.     property SpaceColor: IDispatch dispid 3;
  1027.     property Width: Single dispid 4;
  1028.   end;
  1029.  
  1030. { Gradient object }
  1031.  
  1032.   IGradient = dispinterface
  1033.     ['{2E6A37A6-77FC-11CE-840F-00AA0042CB33}']
  1034.     property Style: Smallint dispid 1;
  1035.     property FromColor: IDispatch dispid 2;
  1036.     property ToColor: IDispatch dispid 3;
  1037.   end;
  1038.  
  1039. { VtPicture object }
  1040.  
  1041.   IPicture = dispinterface
  1042.     ['{FD30FB00-789C-11CE-840F-00AA0042CB33}']
  1043.     property Type_: Smallint dispid 1;
  1044.     property Map: Smallint dispid 2;
  1045.     property Embedded: WordBool dispid 3;
  1046.     property FileName: WideString dispid 4;
  1047.   end;
  1048.  
  1049. { Fill object }
  1050.  
  1051.   IFill = dispinterface
  1052.     ['{FD30FB02-789C-11CE-840F-00AA0042CB33}']
  1053.     property Style: Smallint dispid 1;
  1054.     property Brush: IDispatch dispid 2;
  1055.     property Gradient: IDispatch dispid 3;
  1056.     property VtPicture: IDispatch dispid 4;
  1057.   end;
  1058.  
  1059. { Pen object }
  1060.  
  1061.   IVcPen = dispinterface
  1062.     ['{279B5A40-8098-11CE-BECC-00AA0042CB33}']
  1063.     property Style: Smallint dispid 1;
  1064.     property Join: Smallint dispid 2;
  1065.     property Cap: Smallint dispid 3;
  1066.     property VtColor: IDispatch dispid 4;
  1067.     property Width: Single dispid 5;
  1068.     property Limit: Single dispid 6;
  1069.   end;
  1070.  
  1071. { Marker object }
  1072.  
  1073.   IVcMarker = dispinterface
  1074.     ['{3080E742-813F-11CE-BECC-00AA0042CB33}']
  1075.     property Visible: WordBool dispid 1;
  1076.     property Style: Smallint dispid 2;
  1077.     property Pen: IDispatch dispid 3;
  1078.     property Size: Single dispid 4;
  1079.     property FillColor: IDispatch dispid 5;
  1080.     property VtPicture: IDispatch dispid 6;
  1081.   end;
  1082.  
  1083. { Footnote object }
  1084.  
  1085.   IVcFootnote = dispinterface
  1086.     ['{4F053F00-8396-11CE-BECC-00AA0042CB33}']
  1087.     property TextLayout: IDispatch dispid 1;
  1088.     property Location: IDispatch dispid 2;
  1089.     property Backdrop: IDispatch dispid 3;
  1090.     property VtFont: IDispatch dispid 4;
  1091.     property Text: WideString dispid 5;
  1092.     property _Text: WideString dispid 0;
  1093.     property TextLength: Smallint dispid 6;
  1094.     procedure Select; dispid 7;
  1095.   end;
  1096.  
  1097. { Legend object }
  1098.  
  1099.   IVcLegend = dispinterface
  1100.     ['{95C52B60-83B1-11CE-BECC-00AA0042CB33}']
  1101.     property Location: IDispatch dispid 1;
  1102.     property Backdrop: IDispatch dispid 2;
  1103.     property VtFont: IDispatch dispid 3;
  1104.     property TextLayout: IDispatch dispid 4;
  1105.     procedure Select; dispid 5;
  1106.   end;
  1107.  
  1108. { PrintInformation object }
  1109.  
  1110.   IVcPrintInformation = dispinterface
  1111.     ['{CFA0AC00-8B6E-11CE-840F-00AA0042CB33}']
  1112.     property ScaleType: Smallint dispid 1;
  1113.     property Orientation: Smallint dispid 2;
  1114.     property TopMargin: Single dispid 3;
  1115.     property BottomMargin: Single dispid 4;
  1116.     property LeftMargin: Single dispid 5;
  1117.     property RightMargin: Single dispid 6;
  1118.     property CenterHorizontally: WordBool dispid 7;
  1119.     property CenterVertically: WordBool dispid 8;
  1120.     property Monochrome: WordBool dispid 9;
  1121.     property LayoutForPrinter: WordBool dispid 10;
  1122.     procedure PrintCopies(NumberCopies: Smallint); dispid 11;
  1123.   end;
  1124.  
  1125. { DataGrid object }
  1126.  
  1127.   IVcDataGrid = dispinterface
  1128.     ['{6CB603A0-8F70-11CE-840F-00AA0042CB33}']
  1129.     property ColumnCount: Smallint dispid 1;
  1130.     property ColumnLabelCount: Smallint dispid 2;
  1131.     property RowLabelCount: Smallint dispid 3;
  1132.     property RowCount: Smallint dispid 4;
  1133.     procedure DeleteColumns(Column, Count: Smallint); dispid 5;
  1134.     procedure InsertColumns(Column, Count: Smallint); dispid 6;
  1135.     procedure DeleteColumnLabels(LabelIndex, Count: Smallint); dispid 7;
  1136.     procedure InsertColumnLabels(LabelIndex, Count: Smallint); dispid 8;
  1137.     procedure DeleteRows(Row, Count: Smallint); dispid 9;
  1138.     procedure InsertRows(Row, Count: Smallint); dispid 10;
  1139.     procedure DeleteRowLabels(LabelIndex, Count: Smallint); dispid 11;
  1140.     procedure InsertRowLabels(LabelIndex, Count: Smallint); dispid 12;
  1141.     procedure RandomDataFill; dispid 13;
  1142.     procedure SetSize(RowLabelCount, ColumnLabelCount, DataRowCount, DataColumnCount: Smallint); dispid 14;
  1143.     procedure InitializeLabels; dispid 15;
  1144.     property ColumnLabel[Column, LabelIndex: Smallint]: WideString dispid 21;
  1145.     property CompositeColumnLabel[Column: Smallint]: WideString readonly dispid 22;
  1146.     property CompositeRowLabel[Row: Smallint]: WideString readonly dispid 23;
  1147.     property RowLabel[Row, LabelIndex: Smallint]: WideString dispid 24;
  1148.     procedure RandomFillColumns(Column, Count: Smallint); dispid 16;
  1149.     procedure RandomFillRows(Row, Count: Smallint); dispid 17;
  1150.     procedure MoveData(Top, Left, Bottom, Right, OverOffset, DownOffset: Smallint); dispid 18;
  1151.     procedure GetData(Row, Column: Smallint; var  {IDL_None} DataPoint: Double; var  {IDL_None} nullFlag: Smallint); dispid 19;
  1152.     procedure SetData(Row, Column: Smallint; DataPoint: Double; nullFlag: Smallint); dispid 20;
  1153.   end;
  1154.  
  1155. { Plot object }
  1156.  
  1157.   IVcPlot = dispinterface
  1158.     ['{F77BA680-9037-11CE-86B3-444553540000}']
  1159.     property AngleUnit: Smallint dispid 1;
  1160.     property Clockwise: WordBool dispid 2;
  1161.     property Sort: Smallint dispid 3;
  1162.     property MaxBubbleToAxisRatio: Single dispid 4;
  1163.     property Backdrop: IDispatch dispid 5;
  1164.     property Perspective: IDispatch dispid 6;
  1165.     property ScaleAngle: Single dispid 7;
  1166.     property StartingAngle: Single dispid 8;
  1167.     property SubPlotLabelPosition: Smallint dispid 9;
  1168.     property BarGap: Single dispid 10;
  1169.     property xGap: Single dispid 11;
  1170.     property AutoLayout: WordBool dispid 12;
  1171.     property WidthToHeightRatio: Single dispid 13;
  1172.     property DepthToHeightRatio: Single dispid 14;
  1173.     property LocationRect: IDispatch dispid 15;
  1174.     property Projection: Smallint dispid 16;
  1175.     property zGap: Single dispid 17;
  1176.     property View3d: IDispatch dispid 18;
  1177.     property PlotBase: IDispatch dispid 19;
  1178.     property Doughnut: IDispatch dispid 20;
  1179.     property Pie: IDispatch dispid 21;
  1180.     property Weighting: IDispatch dispid 22;
  1181.     property Wall: IDispatch dispid 23;
  1182.     property Elevation: IDispatch dispid 24;
  1183.     property SeriesCollection: IDispatch dispid 25;
  1184.     property DataSeriesInRow: WordBool dispid 26;
  1185.     property Light: IDispatch dispid 27;
  1186.     property XYZ: IDispatch dispid 28;
  1187.     property DefaultPercentBasis: Smallint dispid 29;
  1188.     property UniformAxis: WordBool dispid 30;
  1189.     property Axis[AxisId: Smallint; Index: OleVariant]: IDispatch readonly dispid 31;
  1190.   end;
  1191.  
  1192. { View3d object }
  1193.  
  1194.   IVcView3d = dispinterface
  1195.     ['{21645F62-90F0-11CE-86B3-444553540000}']
  1196.     property Rotation: Single dispid 1;
  1197.     property Elevation: Single dispid 2;
  1198.     procedure Set_(Rotation, Elevation: Single); dispid 4;
  1199.   end;
  1200.  
  1201. { PlotBase object }
  1202.  
  1203.   IVcPlotBase = dispinterface
  1204.     ['{508D02E0-90FC-11CE-86B3-444553540000}']
  1205.     property BaseHeight: Single dispid 1;
  1206.     property Brush: IDispatch dispid 2;
  1207.     property Pen: IDispatch dispid 3;
  1208.   end;
  1209.  
  1210. { Doughnut object }
  1211.  
  1212.   IVcDoughnut = dispinterface
  1213.     ['{508D02E2-90FC-11CE-86B3-444553540000}']
  1214.     property Sides: Smallint dispid 1;
  1215.     property InteriorRatio: Single dispid 2;
  1216.     procedure Set_(InteriorRatio: Single; Sides: Smallint); dispid 3;
  1217.   end;
  1218.  
  1219. { Pie object }
  1220.  
  1221.   IVcPie = dispinterface
  1222.     ['{508D02E4-90FC-11CE-86B3-444553540000}']
  1223.     property ThicknessRatio: Single dispid 1;
  1224.     property TopRadiusRatio: Single dispid 2;
  1225.     procedure Set_(ThicknessRatio, TopRadiusRation: Single); dispid 3;
  1226.   end;
  1227.  
  1228. { Weighting object }
  1229.  
  1230.   IVcWeighting = dispinterface
  1231.     ['{508D02E6-90FC-11CE-86B3-444553540000}']
  1232.     property Basis: Smallint dispid 1;
  1233.     property Style: Smallint dispid 2;
  1234.     procedure Set_(Basis, Style: Smallint); dispid 3;
  1235.   end;
  1236.  
  1237. { Wall object }
  1238.  
  1239.   IVcWall = dispinterface
  1240.     ['{508D02E8-90FC-11CE-86B3-444553540000}']
  1241.     property Width: Single dispid 1;
  1242.     property Brush: IDispatch dispid 2;
  1243.     property Pen: IDispatch dispid 3;
  1244.   end;
  1245.  
  1246. { Series object }
  1247.  
  1248.   IVcSeries = dispinterface
  1249.     ['{0AA0FE20-912A-11CE-86B3-444553540000}']
  1250.     property SecondaryAxis: WordBool dispid 1;
  1251.     property SmoothingType: Smallint dispid 2;
  1252.     property SmoothingFactor: Smallint dispid 3;
  1253.     property SeriesType: Smallint dispid 4;
  1254.     property GuideLinePen: IDispatch dispid 5;
  1255.     property ShowLine: WordBool dispid 6;
  1256.     property Pen: IDispatch dispid 7;
  1257.     property Bar: IDispatch dispid 8;
  1258.     property HiLo: IDispatch dispid 9;
  1259.     property Position: IDispatch dispid 10;
  1260.     property SeriesMarker: IDispatch dispid 11;
  1261.     property SeriesLabel: IDispatch dispid 12;
  1262.     property StatLine: IDispatch dispid 13;
  1263.     property DataPoints: IDispatch dispid 14;
  1264.     property LegendText: WideString dispid 15;
  1265.     property _LegendText: WideString dispid 0;
  1266.     property ShowGuideLine[AxisId: Smallint]: WordBool dispid 17;
  1267.     procedure Select; dispid 16;
  1268.     property TypeByChartType[ChartType: Smallint]: Smallint readonly dispid 18;
  1269.   end;
  1270.  
  1271. { Bar object }
  1272.  
  1273.   IVcBar = dispinterface
  1274.     ['{264931C0-91F1-11CE-840F-00AA0042CB33}']
  1275.     property Sides: Smallint dispid 1;
  1276.     property TopRatio: Single dispid 2;
  1277.   end;
  1278.  
  1279. { HiLo object }
  1280.  
  1281.   IVcHiLo = dispinterface
  1282.     ['{51DCC620-95B7-11CE-86B3-444553540000}']
  1283.     property GainColor: IDispatch dispid 1;
  1284.     property LossColor: IDispatch dispid 2;
  1285.   end;
  1286.  
  1287. { Position object }
  1288.  
  1289.   IVcPosition = dispinterface
  1290.     ['{51DCC622-95B7-11CE-86B3-444553540000}']
  1291.     property Excluded: WordBool dispid 1;
  1292.     property Hidden: WordBool dispid 2;
  1293.     property Order: Smallint dispid 3;
  1294.     property StackOrder: Smallint dispid 4;
  1295.   end;
  1296.  
  1297. { SeriesMarker object }
  1298.  
  1299.   IVcSeriesMarker = dispinterface
  1300.     ['{51DCC624-95B7-11CE-86B3-444553540000}']
  1301.     property Auto: WordBool dispid 1;
  1302.     property Show: WordBool dispid 2;
  1303.   end;
  1304.  
  1305. { SeriesLabel object }
  1306.  
  1307.   IVcSeriesLabel = dispinterface
  1308.     ['{51DCC626-95B7-11CE-86B3-444553540000}']
  1309.     property Text: WideString dispid 1;
  1310.     property _Text: WideString dispid 0;
  1311.     property LocationType: Smallint dispid 2;
  1312.     property LineStyle: Smallint dispid 3;
  1313.     property Offset: IDispatch dispid 4;
  1314.     property Backdrop: IDispatch dispid 5;
  1315.     property VtFont: IDispatch dispid 6;
  1316.     property TextLayout: IDispatch dispid 7;
  1317.     property TextLength: Smallint dispid 8;
  1318.   end;
  1319.  
  1320. { StatLine object }
  1321.  
  1322.   IVcStatLines = dispinterface
  1323.     ['{2F6DD6A0-95E5-11CE-86B3-444553540000}']
  1324.     property Flag: Smallint dispid 1;
  1325.     property VtColor: IDispatch dispid 2;
  1326.     property Width: Single dispid 3;
  1327.     property Style[Type_: Smallint]: Smallint dispid 4;
  1328.   end;
  1329.  
  1330. { DataPointLabel object }
  1331.  
  1332.   IVcDataPointLabel = dispinterface
  1333.     ['{2F6DD6A2-95E5-11CE-86B3-444553540000}']
  1334.     property Text: WideString dispid 1;
  1335.     property _Text: WideString dispid 0;
  1336.     property Backdrop: IDispatch dispid 2;
  1337.     property VtFont: IDispatch dispid 3;
  1338.     property Offset: IDispatch dispid 4;
  1339.     property TextLayout: IDispatch dispid 5;
  1340.     property LocationType: Smallint dispid 6;
  1341.     property Custom: WordBool dispid 7;
  1342.     property Component: Smallint dispid 8;
  1343.     property LineStyle: Smallint dispid 9;
  1344.     property ValueFormat: WideString dispid 10;
  1345.     property PercentFormat: WideString dispid 11;
  1346.     property TextLength: Smallint dispid 12;
  1347.     procedure ResetCustomLabel; dispid 13;
  1348.     procedure Select; dispid 14;
  1349.   end;
  1350.  
  1351. { DataPoint object }
  1352.  
  1353.   IVcDataPoint = dispinterface
  1354.     ['{2F6DD6A4-95E5-11CE-86B3-444553540000}']
  1355.     property DataPointLabel: IDispatch dispid 1;
  1356.     property Brush: IDispatch dispid 2;
  1357.     property EdgePen: IDispatch dispid 3;
  1358.     property Marker: IDispatch dispid 4;
  1359.     property Offset: Single dispid 5;
  1360.     property VtPicture: IDispatch dispid 6;
  1361.     procedure ResetCustom; dispid 7;
  1362.     procedure Select; dispid 8;
  1363.   end;
  1364.  
  1365. { Axis(axisId, 1) object }
  1366.  
  1367.   IVcAxis = dispinterface
  1368.     ['{027D7900-A023-11CE-840F-00AA0042CB33}']
  1369.     property Pen: IDispatch dispid 1;
  1370.     property LabelLevelCount: Smallint dispid 2;
  1371.     property CategoryScale: IDispatch dispid 3;
  1372.     property DateScale: IDispatch dispid 4;
  1373.     property AxisGrid: IDispatch dispid 5;
  1374.     property Intersection: IDispatch dispid 6;
  1375.     property Tick: IDispatch dispid 7;
  1376.     property AxisScale: IDispatch dispid 8;
  1377.     property ValueScale: IDispatch dispid 9;
  1378.     property AxisTitle: IDispatch dispid 10;
  1379.     property Labels: IDispatch dispid 11;
  1380.   end;
  1381.  
  1382. { CategoryScale object }
  1383.  
  1384.   IVcCategoryScale = dispinterface
  1385.     ['{62375360-A17D-11CE-840F-00AA0042CB33}']
  1386.     property Auto: WordBool dispid 1;
  1387.     property DivisionsPerLabel: Smallint dispid 2;
  1388.     property DivisionsPerTick: Smallint dispid 3;
  1389.     property LabelTick: WordBool dispid 4;
  1390.   end;
  1391.  
  1392. { DateScale object }
  1393.  
  1394.   IVcDateScale = dispinterface
  1395.     ['{62375362-A17D-11CE-840F-00AA0042CB33}']
  1396.     property Auto: WordBool dispid 1;
  1397.     property Minimum: Double dispid 2;
  1398.     property Maximum: Double dispid 3;
  1399.     property MajInt: Smallint dispid 4;
  1400.     property MajFreq: Smallint dispid 5;
  1401.     property MinInt: Smallint dispid 6;
  1402.     property MinFreq: Smallint dispid 7;
  1403.     property SkipWeekend: WordBool dispid 8;
  1404.   end;
  1405.  
  1406. { AxisGrid object }
  1407.  
  1408.   IVcAxisGrid = dispinterface
  1409.     ['{62375364-A17D-11CE-840F-00AA0042CB33}']
  1410.     property MinorPen: IDispatch dispid 1;
  1411.     property MajorPen: IDispatch dispid 2;
  1412.   end;
  1413.  
  1414. { Intersection object }
  1415.  
  1416.   IVcIntersection = dispinterface
  1417.     ['{62375366-A17D-11CE-840F-00AA0042CB33}']
  1418.     property Auto: WordBool dispid 1;
  1419.     property Point: Double dispid 2;
  1420.     property AxisId: Smallint dispid 3;
  1421.     property Index: Smallint dispid 4;
  1422.     property LabelsInsidePlot: WordBool dispid 5;
  1423.   end;
  1424.  
  1425. { Tick object }
  1426.  
  1427.   IVcTick = dispinterface
  1428.     ['{62375368-A17D-11CE-840F-00AA0042CB33}']
  1429.     property Length: Single dispid 1;
  1430.     property Style: Smallint dispid 2;
  1431.   end;
  1432.  
  1433. { AxisScale object }
  1434.  
  1435.   IVcScale = dispinterface
  1436.     ['{6237536A-A17D-11CE-840F-00AA0042CB33}']
  1437.     property Hide: WordBool dispid 1;
  1438.     property Type_: Smallint dispid 2;
  1439.     property LogBase: Smallint dispid 3;
  1440.     property PercentBasis: Smallint dispid 4;
  1441.   end;
  1442.  
  1443. { ValueScale object }
  1444.  
  1445.   IVcValueScale = dispinterface
  1446.     ['{6237536C-A17D-11CE-840F-00AA0042CB33}']
  1447.     property Auto: WordBool dispid 1;
  1448.     property Minimum: Double dispid 2;
  1449.     property Maximum: Double dispid 3;
  1450.     property MajorDivision: Smallint dispid 4;
  1451.     property MinorDivision: Smallint dispid 5;
  1452.   end;
  1453.  
  1454. { AxisTitle object }
  1455.  
  1456.   IVcAxisTitle = dispinterface
  1457.     ['{6237536E-A17D-11CE-840F-00AA0042CB33}']
  1458.     property Text: WideString dispid 1;
  1459.     property _Text: WideString dispid 0;
  1460.     property Backdrop: IDispatch dispid 2;
  1461.     property VtFont: IDispatch dispid 3;
  1462.     property Visible: WordBool dispid 4;
  1463.     property TextLayout: IDispatch dispid 5;
  1464.     property TextLength: Smallint dispid 6;
  1465.   end;
  1466.  
  1467. { Label object }
  1468.  
  1469.   IVcLabel = dispinterface
  1470.     ['{62375370-A17D-11CE-840F-00AA0042CB33}']
  1471.     property Backdrop: IDispatch dispid 1;
  1472.     property Format: WideString dispid 2;
  1473.     property VtFont: IDispatch dispid 3;
  1474.     property Auto: WordBool dispid 4;
  1475.     property Standing: WordBool dispid 5;
  1476.     property TextLayout: IDispatch dispid 6;
  1477.     property FormatLength: Smallint dispid 7;
  1478.   end;
  1479.  
  1480. { Light object }
  1481.  
  1482.   IVcLight = dispinterface
  1483.     ['{B54A6420-A25E-11CE-840F-00AA0042CB33}']
  1484.     property AmbientIntensity: Single dispid 1;
  1485.     property EdgeIntensity: Single dispid 2;
  1486.     property EdgeVisible: WordBool dispid 3;
  1487.     property LightSources: IDispatch dispid 4;
  1488.   end;
  1489.  
  1490. { Elevation object }
  1491.  
  1492.   IVcElevation = dispinterface
  1493.     ['{A71FB700-A732-11CE-840F-00AA0042CB33}']
  1494.     property ColorType: Smallint dispid 1;
  1495.     property RowSmoothing: Smallint dispid 2;
  1496.     property ColSmoothing: Smallint dispid 3;
  1497.     property Surface: IDispatch dispid 4;
  1498.     property AutoValues: WordBool dispid 5;
  1499.     property SeparateContourData: WordBool dispid 6;
  1500.     property Contour: IDispatch dispid 7;
  1501.     property Attributes: IDispatch dispid 8;
  1502.     property ContourGradient: IDispatch dispid 9;
  1503.   end;
  1504.  
  1505. { Attribute object }
  1506.  
  1507.   IVcAttribute = dispinterface
  1508.     ['{A71FB702-A732-11CE-840F-00AA0042CB33}']
  1509.     property Value: Double dispid 1;
  1510.     property Brush: IDispatch dispid 2;
  1511.     property Pen: IDispatch dispid 3;
  1512.     property Text: WideString dispid 4;
  1513.     property _Text: WideString dispid 0;
  1514.   end;
  1515.  
  1516. { Surface object }
  1517.  
  1518.   IVcSurface = dispinterface
  1519.     ['{A71FB704-A732-11CE-840F-00AA0042CB33}']
  1520.     property Brush: IDispatch dispid 1;
  1521.     property WireframePen: IDispatch dispid 2;
  1522.     property Projection: Smallint dispid 3;
  1523.     property DisplayType: Smallint dispid 4;
  1524.     property RowWireframe: Smallint dispid 5;
  1525.     property ColWireframe: Smallint dispid 6;
  1526.     property Base: Smallint dispid 7;
  1527.   end;
  1528.  
  1529. { Contour object }
  1530.  
  1531.   IVcContour = dispinterface
  1532.     ['{A71FB706-A732-11CE-840F-00AA0042CB33}']
  1533.     property DisplayType: Smallint dispid 1;
  1534.   end;
  1535.  
  1536. { LightSource object }
  1537.  
  1538.   IVcLightSource = dispinterface
  1539.     ['{CD9EFA60-AA40-11CE-840F-00AA0042CB33}']
  1540.     property Intensity: Single dispid 1;
  1541.     property X: Single dispid 2;
  1542.     property Y: Single dispid 3;
  1543.     property Z: Single dispid 4;
  1544.     property _Intensity: Single dispid 0;
  1545.     procedure Set_(X, Y, Z, Intensity: Single); dispid 5;
  1546.   end;
  1547.  
  1548. { SeriesCollection Collection }
  1549.  
  1550.   IVcSeriesCollection = dispinterface
  1551.     ['{C14E8B60-AE2B-11CE-840F-00AA0042CB33}']
  1552.     property Count: Integer dispid 1;
  1553.     property Item[Index: Smallint]: IDispatch readonly dispid 2;
  1554.   end;
  1555.  
  1556. { DataPoints Collection }
  1557.  
  1558.   IVcDataPoints = dispinterface
  1559.     ['{C20E5260-B06F-11CE-840F-00AA0042CB33}']
  1560.     property Count: Integer dispid 1;
  1561.     property Item[DataPoint: Smallint]: IDispatch readonly dispid 2;
  1562.     property _Item[DataPoint: Smallint]: IDispatch readonly dispid 0;
  1563.   end;
  1564.  
  1565. { Labels Collection }
  1566.  
  1567.   IVcLabels = dispinterface
  1568.     ['{62B9A400-B93D-11CE-8410-00AA0042CB33}']
  1569.     property Count: Integer dispid 1;
  1570.     property Item[LabelIndex: Smallint]: IDispatch readonly dispid 2;
  1571.     property _Item[LabelIndex: Smallint]: IDispatch readonly dispid 0;
  1572.   end;
  1573.  
  1574. { XYZ Object }
  1575.  
  1576.   IVcXYZ = dispinterface
  1577.     ['{7D001800-BC65-11CE-8410-00AA0042CB33}']
  1578.     property xIntersection: Double dispid 1;
  1579.     property yIntersection: Double dispid 2;
  1580.     property zIntersection: Double dispid 3;
  1581.     property Automatic: WordBool dispid 4;
  1582.   end;
  1583.  
  1584. { LightSources Collection }
  1585.  
  1586.   IVcLightSources = dispinterface
  1587.     ['{6FE35CC0-CE50-11CE-8410-00AA0042CB33}']
  1588.     property Count: Integer dispid 1;
  1589.     property Item[Index: Smallint]: IDispatch readonly dispid 4;
  1590.     function Add(X, Y, Z, Intensity: Single): IDispatch; dispid 2;
  1591.     procedure Remove(Index: Smallint); dispid 3;
  1592.   end;
  1593.  
  1594. { Contour Attributes Collection }
  1595.  
  1596.   IVcAttributes = dispinterface
  1597.     ['{5A693220-CFEF-11CE-8410-00AA0042CB33}']
  1598.     property Count: Smallint dispid 1;
  1599.     property Item[Index: Smallint]: IDispatch readonly dispid 4;
  1600.     property _Item[Index: Smallint]: IDispatch readonly dispid 0;
  1601.     function Add(Value: Double): IDispatch; dispid 2;
  1602.     procedure Remove(Index: Smallint); dispid 3;
  1603.   end;
  1604.  
  1605. { Contour gradient from/to attributes object }
  1606.  
  1607.   IVcContourGradient = dispinterface
  1608.     ['{69032720-D303-11CE-8410-00AA0042CB33}']
  1609.     property FromBrushColor: IDispatch dispid 1;
  1610.     property ToBrushColor: IDispatch dispid 2;
  1611.     property FromPenColor: IDispatch dispid 3;
  1612.     property ToPenColor: IDispatch dispid 4;
  1613.   end;
  1614.  
  1615. { VCI First Impression Chart }
  1616.  
  1617.   TVtChartChartSelected = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1618.   TVtChartTitleSelected = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1619.   TVtChartFootnoteSelected = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1620.   TVtChartLegendSelected = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1621.   TVtChartPlotSelected = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1622.   TVtChartAxisSelected = procedure(Sender: TObject; var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1623.   TVtChartAxisLabelSelected = procedure(Sender: TObject; var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} labelSetIndex,  {IDL_None} LabelIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1624.   TVtChartAxisTitleSelected = procedure(Sender: TObject; var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1625.   TVtChartPointSelected = procedure(Sender: TObject; var  {IDL_None} Series,  {IDL_None} DataPoint,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1626.   TVtChartPointLabelSelected = procedure(Sender: TObject; var  {IDL_None} Series,  {IDL_None} DataPoint,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1627.   TVtChartSeriesSelected = procedure(Sender: TObject; var  {IDL_None} Series,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1628.   TVtChartSeriesLabelSelected = procedure(Sender: TObject; var  {IDL_None} Series,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1629.   TVtChartChartActivated = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1630.   TVtChartTitleActivated = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1631.   TVtChartFootnoteActivated = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1632.   TVtChartLegendActivated = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1633.   TVtChartPlotActivated = procedure(Sender: TObject; var  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1634.   TVtChartAxisActivated = procedure(Sender: TObject; var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1635.   TVtChartAxisLabelActivated = procedure(Sender: TObject; var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} labelSetIndex,  {IDL_None} LabelIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1636.   TVtChartAxisTitleActivated = procedure(Sender: TObject; var  {IDL_None} AxisId,  {IDL_None} AxisIndex,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1637.   TVtChartPointActivated = procedure(Sender: TObject; var  {IDL_None} Series,  {IDL_None} DataPoint,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1638.   TVtChartPointLabelActivated = procedure(Sender: TObject; var  {IDL_None} Series,  {IDL_None} DataPoint,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1639.   TVtChartSeriesActivated = procedure(Sender: TObject; var  {IDL_None} Series,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1640.   TVtChartSeriesLabelActivated = procedure(Sender: TObject; var  {IDL_None} Series,  {IDL_None} MouseFlags,  {IDL_None} Cancel: Smallint) of object;
  1641.  
  1642.   TVtChart = class(TOleControl)
  1643.   private
  1644.     FOnChartSelected: TVtChartChartSelected;
  1645.     FOnTitleSelected: TVtChartTitleSelected;
  1646.     FOnFootnoteSelected: TVtChartFootnoteSelected;
  1647.     FOnLegendSelected: TVtChartLegendSelected;
  1648.     FOnPlotSelected: TVtChartPlotSelected;
  1649.     FOnAxisSelected: TVtChartAxisSelected;
  1650.     FOnAxisLabelSelected: TVtChartAxisLabelSelected;
  1651.     FOnAxisTitleSelected: TVtChartAxisTitleSelected;
  1652.     FOnPointSelected: TVtChartPointSelected;
  1653.     FOnPointLabelSelected: TVtChartPointLabelSelected;
  1654.     FOnSeriesSelected: TVtChartSeriesSelected;
  1655.     FOnSeriesLabelSelected: TVtChartSeriesLabelSelected;
  1656.     FOnChartActivated: TVtChartChartActivated;
  1657.     FOnTitleActivated: TVtChartTitleActivated;
  1658.     FOnFootnoteActivated: TVtChartFootnoteActivated;
  1659.     FOnLegendActivated: TVtChartLegendActivated;
  1660.     FOnPlotActivated: TVtChartPlotActivated;
  1661.     FOnAxisActivated: TVtChartAxisActivated;
  1662.     FOnAxisLabelActivated: TVtChartAxisLabelActivated;
  1663.     FOnAxisTitleActivated: TVtChartAxisTitleActivated;
  1664.     FOnPointActivated: TVtChartPointActivated;
  1665.     FOnPointLabelActivated: TVtChartPointLabelActivated;
  1666.     FOnSeriesActivated: TVtChartSeriesActivated;
  1667.     FOnSeriesLabelActivated: TVtChartSeriesLabelActivated;
  1668.     FOnApplyChanges: TNotifyEvent;
  1669.     FIntf: _DVtChart;
  1670.     function Get_Picture: IPictureDisp;
  1671.     function Get_GetBitmap(options: OleVariant): OLE_HANDLE;
  1672.   protected
  1673.     procedure InitControlData; override;
  1674.     procedure InitControlInterface(const Obj: IUnknown); override;
  1675.   public
  1676.     procedure EditPaste;
  1677.     procedure EditCopy;
  1678.     procedure ActivateSelectionDialog;
  1679.     procedure Layout;
  1680.     procedure ToDefaults;
  1681.     procedure PrintSetupDialog;
  1682.     procedure PrintChart;
  1683.     procedure SelectPart(part, index1, index2, index3, index4: Smallint);
  1684.     procedure GetSelectedPart(var  {IDL_None} part,  {IDL_None} index1,  {IDL_None} index2,  {IDL_None} index3,  {IDL_None} index4: Smallint);
  1685.     procedure GetDLLVersion(var  {IDL_None} major,  {IDL_None} minor: Smallint);
  1686.     procedure TwipsToChartPart(xVal, yVal: Integer; var  {IDL_None} part,  {IDL_None} index1,  {IDL_None} index2,  {IDL_None} index3,  {IDL_None} index4: Smallint);
  1687.     procedure ReadFromFile(const FileName: WideString);
  1688.     procedure WritePictureToFile(const FileName: WideString; pictureType, options: Smallint);
  1689.     procedure WriteToFile(const FileName: WideString);
  1690.     procedure ActivateFormatMenu(X, Y: Integer);
  1691.     procedure GetMetafile(options: Smallint; var  {IDL_None} Handle: OLE_HANDLE; var  {IDL_None} Width,  {IDL_None} Height: Integer);
  1692.     procedure CopyDataFromArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant);
  1693.     procedure CopyDataToArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant);
  1694.     procedure Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top, Left, Bottom, Right: Integer; Layout, Stretch: WordBool);
  1695.     procedure UseWizard;
  1696.     procedure EditChartData;
  1697.     procedure Refresh;
  1698.     procedure AboutBox;
  1699.     property ControlInterface: _DVtChart read FIntf;
  1700.     property SsLinkSheet: WideString index 22 read GetWideStringProp write SetWideStringProp;
  1701.     property Handle: Integer index 24 read GetIntegerProp;
  1702.     property Picture: IPictureDisp read Get_Picture;
  1703.     property GetBitmap[options: OleVariant]: OLE_HANDLE read Get_GetBitmap;
  1704.   published
  1705.     property TabStop;
  1706.     property DragCursor;
  1707.     property DragMode;
  1708.     property ParentShowHint;
  1709.     property PopupMenu;
  1710.     property ShowHint;
  1711.     property TabOrder;
  1712.     property Visible;
  1713.     property OnDragDrop;
  1714.     property OnDragOver;
  1715.     property OnEndDrag;
  1716.     property OnEnter;
  1717.     property OnExit;
  1718.     property OnStartDrag;
  1719.     property OnMouseUp;
  1720.     property OnMouseMove;
  1721.     property OnMouseDown;
  1722.     property OnKeyUp;
  1723.     property OnKeyPress;
  1724.     property OnKeyDown;
  1725.     property OnDblClick;
  1726.     property OnClick;
  1727.     property AutoIncrement: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  1728.     property RandomFill: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  1729.     property ChartType: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  1730.     property Column: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  1731.     property ColumnCount: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  1732.     property ColumnLabel: WideString index 6 read GetWideStringProp write SetWideStringProp stored False;
  1733.     property ColumnLabelCount: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  1734.     property ColumnLabelIndex: Smallint index 8 read GetSmallintProp write SetSmallintProp stored False;
  1735.     property Data: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  1736.     property FootnoteText: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  1737.     property Repaint: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  1738.     property Row: Smallint index 12 read GetSmallintProp write SetSmallintProp stored False;
  1739.     property RowCount: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  1740.     property RowLabel: WideString index 14 read GetWideStringProp write SetWideStringProp stored False;
  1741.     property RowLabelCount: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  1742.     property RowLabelIndex: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  1743.     property SeriesColumn: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  1744.     property SeriesType: Smallint index 18 read GetSmallintProp write SetSmallintProp stored False;
  1745.     property ShowLegend: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  1746.     property SsLinkMode: Smallint index 20 read GetSmallintProp write SetSmallintProp stored False;
  1747.     property SsLinkRange: WideString index 21 read GetWideStringProp write SetWideStringProp stored False;
  1748.     property DrawMode: Smallint index 23 read GetSmallintProp write SetSmallintProp stored False;
  1749.     property BorderStyle: Smallint index -504 read GetSmallintProp write SetSmallintProp stored False;
  1750.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  1751.     property hWnd: Smallint index -515 read GetSmallintProp write SetSmallintProp stored False;
  1752.     property Title: IDispatch index 26 read GetIDispatchProp write SetIDispatchProp stored False;
  1753.     property Footnote: IDispatch index 27 read GetIDispatchProp write SetIDispatchProp stored False;
  1754.     property TitleText: WideString index 28 read GetWideStringProp write SetWideStringProp stored False;
  1755.     property Stacking: WordBool index 29 read GetWordBoolProp write SetWordBoolProp stored False;
  1756.     property TextLengthType: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  1757.     property AllowUserChanges: WordBool index 31 read GetWordBoolProp write SetWordBoolProp stored False;
  1758.     property AllowSelections: WordBool index 32 read GetWordBoolProp write SetWordBoolProp stored False;
  1759.     property AllowSeriesSelection: WordBool index 33 read GetWordBoolProp write SetWordBoolProp stored False;
  1760.     property AllowDynamicRotation: WordBool index 34 read GetWordBoolProp write SetWordBoolProp stored False;
  1761.     property ActiveSeriesCount: Smallint index 35 read GetSmallintProp write SetSmallintProp stored False;
  1762.     property Backdrop: IDispatch index 36 read GetIDispatchProp write SetIDispatchProp stored False;
  1763.     property PrintInformation: IDispatch index 37 read GetIDispatchProp write SetIDispatchProp stored False;
  1764.     property Legend: IDispatch index 38 read GetIDispatchProp write SetIDispatchProp stored False;
  1765.     property DataGrid: IDispatch index 39 read GetIDispatchProp write SetIDispatchProp stored False;
  1766.     property Plot: IDispatch index 40 read GetIDispatchProp write SetIDispatchProp stored False;
  1767.     property TwipsWidth: Integer index 41 read GetIntegerProp write SetIntegerProp stored False;
  1768.     property TwipsHeight: Integer index 42 read GetIntegerProp write SetIntegerProp stored False;
  1769.     property AllowDithering: WordBool index 43 read GetWordBoolProp write SetWordBoolProp stored False;
  1770.     property ErrorOffset: Smallint index 44 read GetSmallintProp write SetSmallintProp stored False;
  1771.     property DoSetCursor: WordBool index 45 read GetWordBoolProp write SetWordBoolProp stored False;
  1772.     property FileName: WideString index 46 read GetWideStringProp write SetWideStringProp stored False;
  1773.     property Chart3d: WordBool index 47 read GetWordBoolProp write SetWordBoolProp stored False;
  1774.     property SsLinkBook: WideString index 48 read GetWideStringProp write SetWideStringProp stored False;
  1775.     property OnChartSelected: TVtChartChartSelected read FOnChartSelected write FOnChartSelected;
  1776.     property OnTitleSelected: TVtChartTitleSelected read FOnTitleSelected write FOnTitleSelected;
  1777.     property OnFootnoteSelected: TVtChartFootnoteSelected read FOnFootnoteSelected write FOnFootnoteSelected;
  1778.     property OnLegendSelected: TVtChartLegendSelected read FOnLegendSelected write FOnLegendSelected;
  1779.     property OnPlotSelected: TVtChartPlotSelected read FOnPlotSelected write FOnPlotSelected;
  1780.     property OnAxisSelected: TVtChartAxisSelected read FOnAxisSelected write FOnAxisSelected;
  1781.     property OnAxisLabelSelected: TVtChartAxisLabelSelected read FOnAxisLabelSelected write FOnAxisLabelSelected;
  1782.     property OnAxisTitleSelected: TVtChartAxisTitleSelected read FOnAxisTitleSelected write FOnAxisTitleSelected;
  1783.     property OnPointSelected: TVtChartPointSelected read FOnPointSelected write FOnPointSelected;
  1784.     property OnPointLabelSelected: TVtChartPointLabelSelected read FOnPointLabelSelected write FOnPointLabelSelected;
  1785.     property OnSeriesSelected: TVtChartSeriesSelected read FOnSeriesSelected write FOnSeriesSelected;
  1786.     property OnSeriesLabelSelected: TVtChartSeriesLabelSelected read FOnSeriesLabelSelected write FOnSeriesLabelSelected;
  1787.     property OnChartActivated: TVtChartChartActivated read FOnChartActivated write FOnChartActivated;
  1788.     property OnTitleActivated: TVtChartTitleActivated read FOnTitleActivated write FOnTitleActivated;
  1789.     property OnFootnoteActivated: TVtChartFootnoteActivated read FOnFootnoteActivated write FOnFootnoteActivated;
  1790.     property OnLegendActivated: TVtChartLegendActivated read FOnLegendActivated write FOnLegendActivated;
  1791.     property OnPlotActivated: TVtChartPlotActivated read FOnPlotActivated write FOnPlotActivated;
  1792.     property OnAxisActivated: TVtChartAxisActivated read FOnAxisActivated write FOnAxisActivated;
  1793.     property OnAxisLabelActivated: TVtChartAxisLabelActivated read FOnAxisLabelActivated write FOnAxisLabelActivated;
  1794.     property OnAxisTitleActivated: TVtChartAxisTitleActivated read FOnAxisTitleActivated write FOnAxisTitleActivated;
  1795.     property OnPointActivated: TVtChartPointActivated read FOnPointActivated write FOnPointActivated;
  1796.     property OnPointLabelActivated: TVtChartPointLabelActivated read FOnPointLabelActivated write FOnPointLabelActivated;
  1797.     property OnSeriesActivated: TVtChartSeriesActivated read FOnSeriesActivated write FOnSeriesActivated;
  1798.     property OnSeriesLabelActivated: TVtChartSeriesLabelActivated read FOnSeriesLabelActivated write FOnSeriesLabelActivated;
  1799.     property OnApplyChanges: TNotifyEvent read FOnApplyChanges write FOnApplyChanges;
  1800.   end;
  1801.  
  1802. procedure Register;
  1803.  
  1804. implementation
  1805.  
  1806. uses ComObj;
  1807.  
  1808. procedure TVtChart.InitControlData;
  1809. const
  1810.   CEventDispIDs: array[0..24] of Integer = (
  1811.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  1812.     $00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C,
  1813.     $0000000D, $0000000E, $0000000F, $00000010, $00000011, $00000012,
  1814.     $00000013, $00000014, $00000015, $00000016, $00000017, $00000018,
  1815.     $00000019);
  1816.   CLicenseKey: array[0..42] of Word = (
  1817.     $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020,
  1818.     $0028, $0063, $0029, $0020, $0031, $0039, $0039, $0035, $0020, $0056,
  1819.     $0069, $0073, $0075, $0061, $006C, $0020, $0043, $006F, $006D, $0070,
  1820.     $006F, $006E, $0065, $006E, $0074, $0073, $002C, $0020, $0049, $006E,
  1821.     $0063, $002E, $0000);
  1822.   CControlData: TControlData = (
  1823.     ClassID: '{5A721580-5AF0-11CE-8384-0020AF2337F2}';
  1824.     EventIID: '{5A721582-5AF0-11CE-8384-0020AF2337F2}';
  1825.     EventCount: 25;
  1826.     EventDispIDs: @CEventDispIDs;
  1827.     LicenseKey: @CLicenseKey;
  1828.     Flags: $00000008;
  1829.     Version: 300;
  1830.     FontCount: 0;
  1831.     FontIDs: nil);
  1832. begin
  1833.   ControlData := @CControlData;
  1834. end;
  1835.  
  1836. procedure TVtChart.InitControlInterface(const Obj: IUnknown);
  1837. begin
  1838.   FIntf := Obj as _DVtChart;
  1839. end;
  1840.  
  1841. procedure TVtChart.EditPaste;
  1842. begin
  1843.   ControlInterface.EditPaste;
  1844. end;
  1845.  
  1846. procedure TVtChart.EditCopy;
  1847. begin
  1848.   ControlInterface.EditCopy;
  1849. end;
  1850.  
  1851. procedure TVtChart.ActivateSelectionDialog;
  1852. begin
  1853.   ControlInterface.ActivateSelectionDialog;
  1854. end;
  1855.  
  1856. procedure TVtChart.Layout;
  1857. begin
  1858.   ControlInterface.Layout;
  1859. end;
  1860.  
  1861. procedure TVtChart.ToDefaults;
  1862. begin
  1863.   ControlInterface.ToDefaults;
  1864. end;
  1865.  
  1866. procedure TVtChart.PrintSetupDialog;
  1867. begin
  1868.   ControlInterface.PrintSetupDialog;
  1869. end;
  1870.  
  1871. procedure TVtChart.PrintChart;
  1872. begin
  1873.   ControlInterface.PrintChart;
  1874. end;
  1875.  
  1876. procedure TVtChart.SelectPart(part, index1, index2, index3, index4: Smallint);
  1877. begin
  1878.   ControlInterface.SelectPart(part, index1, index2, index3, index4);
  1879. end;
  1880.  
  1881. procedure TVtChart.GetSelectedPart(var  {IDL_None} part,  {IDL_None} index1,  {IDL_None} index2,  {IDL_None} index3,  {IDL_None} index4: Smallint);
  1882. begin
  1883.   ControlInterface.GetSelectedPart(part, index1, index2, index3, index4);
  1884. end;
  1885.  
  1886. procedure TVtChart.GetDLLVersion(var  {IDL_None} major,  {IDL_None} minor: Smallint);
  1887. begin
  1888.   ControlInterface.GetDLLVersion(major, minor);
  1889. end;
  1890.  
  1891. procedure TVtChart.TwipsToChartPart(xVal, yVal: Integer; var  {IDL_None} part,  {IDL_None} index1,  {IDL_None} index2,  {IDL_None} index3,  {IDL_None} index4: Smallint);
  1892. begin
  1893.   ControlInterface.TwipsToChartPart(xVal, yVal, part, index1, index2, index3, index4);
  1894. end;
  1895.  
  1896. procedure TVtChart.ReadFromFile(const FileName: WideString);
  1897. begin
  1898.   ControlInterface.ReadFromFile(FileName);
  1899. end;
  1900.  
  1901. procedure TVtChart.WritePictureToFile(const FileName: WideString; pictureType, options: Smallint);
  1902. begin
  1903.   ControlInterface.WritePictureToFile(FileName, pictureType, options);
  1904. end;
  1905.  
  1906. procedure TVtChart.WriteToFile(const FileName: WideString);
  1907. begin
  1908.   ControlInterface.WriteToFile(FileName);
  1909. end;
  1910.  
  1911. procedure TVtChart.ActivateFormatMenu(X, Y: Integer);
  1912. begin
  1913.   ControlInterface.ActivateFormatMenu(X, Y);
  1914. end;
  1915.  
  1916. procedure TVtChart.GetMetafile(options: Smallint; var  {IDL_None} Handle: OLE_HANDLE; var  {IDL_None} Width,  {IDL_None} Height: Integer);
  1917. begin
  1918.   ControlInterface.GetMetafile(options, Handle, Width, Height);
  1919. end;
  1920.  
  1921. procedure TVtChart.CopyDataFromArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant);
  1922. begin
  1923.   ControlInterface.CopyDataFromArray(Top, Left, Bottom, Right, Array_);
  1924. end;
  1925.  
  1926. procedure TVtChart.CopyDataToArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant);
  1927. begin
  1928.   ControlInterface.CopyDataToArray(Top, Left, Bottom, Right, Array_);
  1929. end;
  1930.  
  1931. procedure TVtChart.Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top, Left, Bottom, Right: Integer; Layout, Stretch: WordBool);
  1932. begin
  1933.   ControlInterface.Draw(hDC, hDCType, Top, Left, Bottom, Right, Layout, Stretch);
  1934. end;
  1935.  
  1936. procedure TVtChart.UseWizard;
  1937. begin
  1938.   ControlInterface.UseWizard;
  1939. end;
  1940.  
  1941. procedure TVtChart.EditChartData;
  1942. begin
  1943.   ControlInterface.EditChartData;
  1944. end;
  1945.  
  1946. procedure TVtChart.Refresh;
  1947. begin
  1948.   ControlInterface.Refresh;
  1949. end;
  1950.  
  1951. procedure TVtChart.AboutBox;
  1952. begin
  1953.   ControlInterface.AboutBox;
  1954. end;
  1955.  
  1956. function TVtChart.Get_Picture: IPictureDisp;
  1957. begin
  1958.   Result := ControlInterface.Picture;
  1959. end;
  1960.  
  1961. function TVtChart.Get_GetBitmap(options: OleVariant): OLE_HANDLE;
  1962. begin
  1963.   Result := ControlInterface.GetBitmap[options];
  1964. end;
  1965.  
  1966.  
  1967. procedure Register;
  1968. begin
  1969.   RegisterComponents('ActiveX', [TVtChart]);
  1970.   RegisterNonActiveX([TVtChart]);
  1971. end;
  1972.  
  1973. end.
  1974.